Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
	.BeginUpdate()
	.EnsureVisibleColumn(0)
	With .Items
		.set_ExpandItem(.FirstVisibleItem,False)
	End With
	.EndUpdate()
End With

With Exgrid1
	.BeginUpdate()
	With .Columns
		.Add("C1")
		.Add("C2").FormatColumn = "1 index `A-Z`"
		.Add("C3").FormatColumn = "100 index ``"
	End With
	With .Items
		.AddItem("Item 1")
		.set_SelectItem(.AddItem("Item 2"),True)
		.AddItem("Item 3")
	End With
	.EndUpdate()
	Debug.Print( "Export CSV Selected Items Only:" )
	Debug.Print( .Export("","sel") )
End With

With Exgrid1
	.BeginUpdate()
	.ScrollBars = exontrol.EXGRIDLib.ScrollBarsEnum.exDisableBoth
	.set_ScrollPartVisible(exontrol.EXGRIDLib.ScrollBarEnum.exVScroll,exontrol.EXGRIDLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(exontrol.EXGRIDLib.ScrollBarEnum.exHScroll,exontrol.EXGRIDLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(&H2,exontrol.EXGRIDLib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
	.ScrollHeight = 4
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exVSBack))
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exVSThumb))
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exVSBack))
	.EndUpdate()
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Name")
		With .Add("Currency")
			.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 64
			.FormatColumn = "currency(value)"
		End With
		With .Add("Format")
			.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 64
			.FormatColumn = "`AED ` + (value format ``)"
		End With
	End With
	With .Items
		h = .AddItem("Value 1")
		.set_CellValue(h,1,10)
		.set_CellValue(h,2,10)
		h = .AddItem("Value 2")
		.set_CellValue(h,1,20)
		.set_CellValue(h,2,20)
	End With
	.EndUpdate()
End With

With Exgrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
			.Filter = "MAZDA"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exPattern
			.Filter = "AIR BAG"
		End With
	End With
	With .Items
		.set_CellValue(.AddItem("Mazda"),1,"Air Bag")
		.set_CellValue(.AddItem("Toyota"),1,"Air Bag,Air condition")
		.set_CellValue(.AddItem("Ford"),1,"Air condition")
		.set_CellValue(.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
		.set_CellValue(.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
		.set_CellValue(.AddItem("Mazda"),1,"ABS,ESP")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Exgrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilterDoCaseSensitive Or exontrol.EXGRIDLib.FilterTypeEnum.exFilter
			.Filter = "Mazda"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilterDoCaseSensitive Or exontrol.EXGRIDLib.FilterTypeEnum.exPattern
			.Filter = "Air Bag"
		End With
	End With
	With .Items
		.set_CellValue(.AddItem("Mazda"),1,"Air Bag")
		.set_CellValue(.AddItem("Toyota"),1,"Air Bag,Air condition")
		.set_CellValue(.AddItem("Ford"),1,"Air condition")
		.set_CellValue(.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
		.set_CellValue(.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
		.set_CellValue(.AddItem("Mazda"),1,"ABS,ESP")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h
With Exgrid1
	.Columns.Add("Default").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
	With .Items
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
		h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
		.set_CellValue(h,0,"sum(all,rec,%0)")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_FormatCell(h,0,"`Sum: ` + (value format ``) ")
		.AddItem(10)
		h = .AddItem(20)
		.set_SortableItem(h,False)
		.set_FormatCell(h,0,"value + ` <fgcolor=808080> this item is excluded from aggregate computations</fgcolor>`")
		.AddItem(30)
	End With
End With

Dim rs
With Exgrid1
	.BeginUpdate()
	.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(6).AllowGroupBy = False
	With .Columns.Item(1)
		.GroupByFormatCell = "'<caption> (sum: <b>' + value + '</b>, of Freight)'"
		.GroupByTotalField = "sum(current,rec,%6)"
		.SortOrder = True
	End With
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Exgrid1_AddGroupItem(ByVal sender As System.Object, ByVal Item As Integer) Handles Exgrid1.AddGroupItem
	With Exgrid1
		With .Items
			Debug.Print( "Caption:" )
			Debug.Print( .get_CellCaption(Item,.get_GroupItem(Item)) )
			Debug.Print( "Value:" )
			Debug.Print( .get_CellValue(Item,.get_GroupItem(Item)) )
		End With
	End With
End Sub

Dim rs
With Exgrid1
	.BeginUpdate()
	.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	With .Columns.Item(1)
		.GroupByFormatCell = "'<b><caption></b> (' + value + ') group'"
		.SortOrder = True
	End With
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Exgrid1_AddGroupItem(ByVal sender As System.Object, ByVal Item As Integer) Handles Exgrid1.AddGroupItem
	With Exgrid1
		With .Items
			.set_FormatCell(Item,.get_GroupItem(Item),"value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`")
			.set_CellValue(Item,"Min","min(current,all,dbl(%6))")
			.set_CellValueFormat(Item,"Min",exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
			.set_CellValue(Item,"Max","max(current,all,dbl(%6))")
			.set_CellValueFormat(Item,"Max",exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
			.set_CellValue(Item,"Sum","sum(current,all,dbl(%6))")
			.set_CellValueFormat(Item,"Sum",exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
		End With
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim rs
With Exgrid1
	.BeginUpdate()
	.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	With .Columns
		.Add("Min").Visible = False
		.Add("Max").Visible = False
		.Add("Sum").Visible = False
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	.SortOnClick = exontrol.EXGRIDLib.SortOnClickEnum.exNoSort
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 13
	.HeaderVisible = False
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Items")
		.Add("Quantity").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
		.Add("Sum").Visible = False
		.Add("Min").Visible = False
		.Add("Max").Visible = False
	End With
	With .Items
		h = .AddItem("Items")
		.set_CellMerge(h,0,1)
		.set_FormatCell(h,0,"`Items, <b>sum(` + %2 + `), min(` + %3 + `), max(` + %4 + `)</b>`")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellValue(h,2,"sum(current,dir,dbl(%1))")
		.set_CellValueFormat(h,2,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
		.set_CellValue(h,3,"min(current,dir,dbl(%1))")
		.set_CellValueFormat(h,3,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
		.set_CellValue(h,4,"max(current,dir,dbl(%1))")
		.set_CellValueFormat(h,4,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
		.set_CellValue(.InsertItem(h,Nothing,"Item 1"),1,10)
		.set_CellValue(.InsertItem(h,Nothing,"Item 2"),1,20)
		.set_CellValue(.InsertItem(h,Nothing,"Item 3"),1,30)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	.SortOnClick = exontrol.EXGRIDLib.SortOnClickEnum.exNoSort
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 13
	.HeaderVisible = False
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Items")
		.Add("Quantity").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
	End With
	With .Items
		h = .AddItem("Items")
		.set_CellValue(h,1,"sum(current,dir,dbl(%1))")
		.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
		.set_FormatCell(h,1,"`Total: `+ value")
		.set_CellValue(.InsertItem(h,Nothing,"Item 1"),1,10)
		.set_CellValue(.InsertItem(h,Nothing,"Item 2"),1,20)
		.set_CellValue(.InsertItem(h,Nothing,"Item 3"),1,30)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim h,h1
With Exgrid1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.SortOnClick = exontrol.EXGRIDLib.SortOnClickEnum.exNoSort
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exThinLine
	.HeaderVisible = False
	.Columns.Add("Numbers").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
	With .Items
		h = .AddItem("Numbers")
		.set_CellEditorVisible(h,0,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
		.set_ItemBold(.InsertItem(h,Nothing,10),True)
		.set_ItemBold(.InsertItem(h,Nothing,20),True)
		.set_ItemBold(.InsertItem(h,Nothing,30),True)
		h1 = .InsertItem(h,Nothing,"not included")
		.set_CellEditorVisible(h1,0,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
		.set_CellValueFormat(h1,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellHAlignment(h1,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
		.set_SortableItem(h1,False)
		h1 = .InsertItem(0,Nothing,"sum(all,rec,dbl(%0))")
		.set_ItemBold(h1,True)
		.set_SelectableItem(h1,False)
		.set_CellValueFormat(h1,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_FormatCell(h1,0,"`Sum: ` + value")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgrid1_AddItem(ByVal sender As System.Object, ByVal Item As Integer) Handles Exgrid1.AddItem
	With Exgrid1
		.Items.set_SortableItem(Item,False)
	End With
End Sub

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Exgrid1_CellStateChanged(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer) Handles Exgrid1.CellStateChanged
	With Exgrid1
		With .Items
			.set_SortableItem(Item,False)
		End With
		.Refresh()
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.FullRowSelect = exontrol.EXGRIDLib.CellSelectEnum.exColumnSel
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.SortOnClick = exontrol.EXGRIDLib.SortOnClickEnum.exNoSort
	.Columns.Add("Check Numbers").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
	With .Items
		.set_CellHasCheckBox(.AddItem(10),0,True)
		h = .AddItem(20)
		.set_CellHasCheckBox(h,0,True)
		.set_CellState(h,0,1)
		.set_CellHasCheckBox(.AddItem(30),0,True)
		h = .AddItem("sum(all,rec,dbl(%0))")
		.set_SelectableItem(h,False)
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_FormatCell(h,0,"`sum on checked items : ` + value")
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.FullRowSelect = exontrol.EXGRIDLib.CellSelectEnum.exColumnSel
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.Columns.Add("Numbers").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
	With .Items
		.AddItem(10)
		.AddItem(20)
		.AddItem(30)
		h = .AddItem("sum(all,rec,dbl(%0))")
		.set_SelectableItem(h,False)
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_FormatCell(h,0,"`sum: ` + value")
		h = .get_SplitCell(h,0)
		.set_CellValue(0,h,"min(all,rec,dbl(%0))")
		.set_CellValueFormat(0,h,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_FormatCell(0,h,"`min: ` + value")
		h = .get_SplitCell(0,h)
		.set_CellValue(0,h,"max(all,rec,dbl(%0))")
		.set_CellValueFormat(0,h,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_FormatCell(0,h,"`max: ` + value")
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.FullRowSelect = exontrol.EXGRIDLib.CellSelectEnum.exColumnSel
	.Columns.Add("Numbers").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
	With .Columns.Add("Idx")
		.FormatColumn = "0 index ``"
		.Width = 24
		.AllowSizing = False
		.Enabled = False
	End With
	With .Items
		h = .AddItem("3 Numbers")
		.set_ItemHeight(h,0)
		.set_SelectableItem(h,False)
		.InsertItem(h,Nothing,10)
		.InsertItem(h,Nothing,20)
		.InsertItem(h,Nothing,30)
		.set_ExpandItem(h,True)
		h = .AddItem("sum(0,dir,dbl(%0))")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_SelectableItem(h,False)
		.set_FormatCell(h,0,"`sum of first three numbers is ` + value")
		h = .AddItem("3 Numbers")
		.set_ItemHeight(h,0)
		.set_SelectableItem(h,False)
		.InsertItem(h,Nothing,15)
		.InsertItem(h,Nothing,35)
		.set_ExpandItem(h,True)
		h = .AddItem("count(5,dir,dbl(%0))")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_SelectableItem(h,False)
		.set_FormatCell(h,0,"`count of next two numbers is ` + value")
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim h,h1
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
	.Columns.Add("Numbers").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
	With .Items
		h = .AddItem("")
		.set_CellValue(h,0,"sum(current,dir,dbl(%0))")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_FormatCell(h,0,"'sum of <fgcolor=FF0000><b>Direct</b> children: '+value + `</fgcolor> using <a>sum(current,dir,dbl(%0))`")
		.set_ItemForeColor(.InsertItem(h,Nothing,10),Color.FromArgb(255,0,0))
		.set_ItemForeColor(.InsertItem(h,Nothing,20),Color.FromArgb(255,0,0))
		.set_ItemForeColor(.InsertItem(h,Nothing,30),Color.FromArgb(255,0,0))
		.set_ExpandItem(h,True)
	End With
	With .Items
		h = .AddItem("")
		.set_CellValue(h,0,"sum(current,rec,dbl(%0))")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_FormatCell(h,0,"'sum of <fgcolor=00FF00><b>Leaf</b> chidlren: '+value +`</fgcolor> using <a>sum(current,rec,dbl(%0))`")
		.set_ItemForeColor(.InsertItem(.InsertItem(.InsertItem(.InsertItem(h,Nothing,100),Nothing,10),Nothing,10),Nothing,1),Color.FromArgb(0,255,0))
		.set_ItemForeColor(.InsertItem(.InsertItem(h,Nothing,200),Nothing,2),Color.FromArgb(0,255,0))
		.set_ItemForeColor(.InsertItem(.InsertItem(h,Nothing,300),Nothing,3),Color.FromArgb(0,255,0))
		h1 = .InsertItem(h,Nothing,"sum(parent,direct,%0)")
		.set_CellValueFormat(h1,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_FormatCell(h1,0,"'sum of <b>Parent Direct</b> children: '+value +`</fgcolor> using <a>sum(parent,direct,%0)`")
		h1 = .InsertItem(h,Nothing,"sum(parent,rec,%0)")
		.set_CellValueFormat(h1,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_FormatCell(h1,0,"'sum of <fgcolor=00FF00><b>Parent Leaf</b> children: '+value +`</fgcolor> using <a>sum(parent,rec,%0)`")
		.set_ExpandItem(0,True)
	End With
	With .Items
		h = .AddItem("")
		.set_CellValue(h,0,"sum(all,rec,dbl(%0))")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_FormatCell(h,0,"'sum of <fgcolor=FF00FF><b>All (leaf children)</b>: '+value  +`</fgcolor> using <a>sum(all,rec,dbl(%0))`")
	End With
	With .Items
		h = .AddItem("")
		.set_CellValue(h,0,"sum(all,all,dbl(%0))")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_FormatCell(h,0,"'sum of <fgcolor=FF00FF><b>All (children)</b>: '+value  +`</fgcolor> using <a>sum(all,all,dbl(%0))`")
	End With
	.EndUpdate()
End With

Dim rs
With Exgrid1
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "FitToPage = On"
		.PrintExt = Exgrid1
		.Preview()
	End With
End With

With Exgrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	.SelForeColor = .ForeColor
	.SelBackColor = .BackColor
	.ShowFocusRect = False
	With .Columns
		With .Add("Format")
			.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
	"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
		End With
	End With
	With .Items
		.AddItem(10)
		.AddItem(-8)
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	With .Columns
		.Add("C1")
		.Add("C2")
		.Add("C3")
	End With
	With .Items
		h = .AddItem("Item 1")
		.set_CellValue(h,1,"SubItem 1.1")
		.set_CellValue(h,2,"SubItem 1.2")
		Debug.Print( .get_CellValue(h,2) )
	End With
End With

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Exgrid1_SelectionChanged(ByVal sender As System.Object) Handles Exgrid1.SelectionChanged
	With Exgrid1
		With .Items
			.ClearItemBackColor(0)
			.set_ItemBackColor(.get_SelectedItem(0),Color.FromArgb(128,255,255))
		End With
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	.SelForeColor = .ForeColor
	.SelBackColor = .BackColor
	.ShowFocusRect = False
	With .Columns
		With .Add("Format")
			.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
	"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
		End With
	End With
	With .Items
		.AddItem(10)
		.AddItem(-8)
	End With
	.EndUpdate()
End With

Dim rs
With Exgrid1
	.BeginUpdate()
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.Columns.Item(1).SortOrder = True
	.Columns.Item(2).SortOrder = True
	Debug.Print( .Columns.SortBarColumnsCount )
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Exgrid1_AddGroupItem(ByVal sender As System.Object, ByVal Item As Integer) Handles Exgrid1.AddGroupItem
	Dim h
	With Exgrid1
		With .Items
			h = .InsertItem(Item,Nothing,"")
			.set_SelectableItem(h,False)
			.set_CellValue(h,6,"min(parent,rec,dbl(%6))")
			.set_CellValueFormat(h,6,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
			.set_FormatCell(h,6,"`<font ;7><b>Min</b>: ` + value")
			.set_ItemPosition(h,0)
			h = .InsertItem(Item,Nothing,"")
			.set_SelectableItem(h,False)
			.set_CellValue(h,6,"max(parent,rec,dbl(%6))")
			.set_CellValueFormat(h,6,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
			.set_FormatCell(h,6,"`<font ;7><b>Max</b>: ` + value")
		End With
	End With
End Sub

Dim rs
With Exgrid1
	.BeginUpdate()
	.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Exgrid1_AddGroupItem(ByVal sender As System.Object, ByVal Item As Integer) Handles Exgrid1.AddGroupItem
	Dim h
	With Exgrid1
		With .Items
			h = .InsertItem(Item,Nothing,"")
			.set_SelectableItem(h,False)
			.set_CellValue(h,6,"sum(parent,rec,dbl(%6))")
			.set_CellValueFormat(h,6,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
			.set_FormatCell(h,6,"`<font ;7><b>Sum</b>: ` + value")
		End With
	End With
End Sub

Dim rs
With Exgrid1
	.BeginUpdate()
	.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	.EndUpdate()
End With

' ItemOleEvent event - Fired when an ActiveX control hosted by an item has fired an event.
Private Sub Exgrid1_ItemOleEvent(ByVal sender As System.Object, ByVal Item As Integer, ByVal Ev As exontrol.EXGRIDLib.OleEvent) Handles Exgrid1.ItemOleEvent
	With Exgrid1
		Debug.Print( Ev )
	End With
End Sub

Dim h
With Exgrid1
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.ScrollBySingleLine = True
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.set_ExpandItem(h,True)
		h = .InsertControlItem(h,"Exontrol.Grid")
		.set_ItemHeight(h,256)
		With .get_ItemObject(h)
			.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
			.ScrollBySingleLine = True
			.Columns.Add("C1")
			.Columns.Add("C2")
			With .Items
				.set_CellValue(.AddItem(1),1,2)
			End With
			h = .Items.AddItem(3)
			.Items.set_CellValue(h,1,4)
			With .Items
				.set_ExpandItem(h,True)
				h = .InsertControlItem(h,"Exontrol.Grid")
				With .get_ItemObject(h)
					.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
					.Columns.Add("Inside-Inside")
					With .Items
						h = .AddItem("item")
						.InsertItem(h,Nothing,"child 1")
						.InsertItem(h,Nothing,"child 2")
						.InsertItem(h,Nothing,"child 3")
					End With
				End With
			End With
		End With
	End With
End With

With Exgrid1
	.Columns.Add("Default")
	With .Items
		.AddItem("Child 3")
		.AddItem("Child 2")
		.AddItem("Child 1")
		.set_ItemPosition(.get_ItemByIndex(0),2)
		.set_ItemPosition(.get_ItemByIndex(1),1)
		.set_ItemPosition(.get_ItemByIndex(2),0)
	End With
End With

Dim h1,h2,h3
With Exgrid1
	.Columns.Add("Default")
	With .Items
		h3 = .AddItem("Child 3")
		h2 = .AddItem("Child 2")
		h1 = .AddItem("Child 1")
		.set_ItemPosition(h3,2)
		.set_ItemPosition(h2,1)
		.set_ItemPosition(h1,0)
	End With
End With

Dim h
With Exgrid1
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.ScrollBySingleLine = True
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.set_ExpandItem(h,True)
		h = .InsertControlItem(h,"Exontrol.Grid")
		.set_ItemHeight(h,256)
		With .get_ItemObject(h)
			.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
			.ScrollBySingleLine = True
			.Columns.Add("C1")
			.Columns.Add("C2")
			With .Items
				.set_CellValue(.AddItem(1),1,2)
			End With
			h = .Items.AddItem(3)
			.Items.set_CellValue(h,1,4)
			With .Items
				.set_ExpandItem(h,True)
				h = .InsertControlItem(h,"Exontrol.Grid")
				With .get_ItemObject(h)
					.Columns.Add("Inside-Inside")
					.Items.AddItem("item")
				End With
			End With
		End With
	End With
End With

With Exgrid1
	With .Columns
		.Add("A")
		.Add("B")
		.Add("Sum").ComputedField = "dbl(%0) + dbl(%1)"
		.Add("Concaternation").ComputedField = "str(%0) + str(%1)"
	End With
	With .Items
		.set_CellValue(.AddItem(1),1,2)
		.set_CellValue(.AddItem(21),1,22)
	End With
End With

With Exgrid1
	With .Columns
		.Add("A").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
		.Add("B").FormatColumn = "currency(%0)"
		.Add("C").FormatColumn = "%1 format ''"
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	End With
End With

' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub Exgrid1_Click(ByVal sender As System.Object) Handles Exgrid1.Click
	With Exgrid1
		.Ungroup()
	End With
End Sub

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarHeight = 24
	.HeaderHeight = 24
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.ReadOnly = exontrol.EXGRIDLib.ReadOnlyEnum.exReadOnly
	With .Columns.Item(1)
		.Alignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,15790320)
		.SortOrder = True
	End With
	.EndUpdate()
End With

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarHeight = 24
	.HeaderHeight = 24
	.BackColorSortBar = Color.FromArgb(240,240,240)
	.BackColorSortBarCaption = .BackColor
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BdsIQAAYAQGKIYBkAKBQAGaAoDDgNw0QwAAxjMK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpA" & _
	"AWL4tCyMc7QHKAWhrEAbJjgQYJUh+TQAAZCIJRXRQAL/K6rKwnSCQIgkUBpGKdBynEYoYxAfyESCJWyIahWAwoQjUMB1HLQAAxC5kKbkIxyBABFBdVjVeBYG78Bz+ABj" & _
	"EovbAMEwPBqAMwmIAZDheA4FR4AGhTXKcbxrFaXZSzKckPRoADSZq1Sg5LjDJI2ABqU6ABqNLZtJKsZS4apABrWeZ3Q7QMLdFTwA4PH6EZhxXAYbTVeaPZjQIBAgI")
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Columns.Item(1)
		.Alignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,15790320)
		.SortOrder = True
	End With
	With .Columns.Item(5)
		.Alignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,16119285)
		.SortOrder = True
	End With
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exSortBarLinkColor,&H1000000)
	.EndUpdate()
End With

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Columns.Item(1)
		.Alignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,15790320)
	End With
	.EndUpdate()
End With

Dim rs
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(6).AllowGroupBy = False
	With .Columns.Item(1)
		.GroupByTotalField = ""
		.GroupByFormatCell = ""
	End With
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgrid1_AddItem(ByVal sender As System.Object, ByVal Item As Integer) Handles Exgrid1.AddItem
	With Exgrid1
		.Items.set_ItemDividerLineAlignment(Item,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerBoth)
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim rs
With Exgrid1
	.BeginUpdate()
	.ScrollBySingleLine = True
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(6).AllowGroupBy = False
	With .Columns.Item(1)
		.GroupByTotalField = "sum(current,rec,%6)"
		.GroupByFormatCell = "'<font ;11>' + <caption> + '</font> <fgcolor=808080>( Freight: ' + currency(value) + ')'"
	End With
	.DefaultItemHeight = 28
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgrid1_AddItem(ByVal sender As System.Object, ByVal Item As Integer) Handles Exgrid1.AddItem
	Dim l
	With Exgrid1
		With .Items
			.set_ItemDividerLine(Item,exontrol.EXGRIDLib.DividerLineEnum.EmptyLine)
			l = .get_GroupItem(Item)
			.set_CellSingleLine(Item,l,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap)
			.set_CellBold(Item,l,True)
			.set_CellBackColor32(Item,l,&H1000000)
		End With
	End With
End Sub

Dim rs
With Exgrid1
	.BeginUpdate()
	.ScrollBySingleLine = True
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exNoLinesAtRoot
	.TreeColumnIndex = -1
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BKoCg6AADACAxRDAMgBQKAAzQFAYcBuGiGAAGMZhWgmFgAQhFcZQSKUOQTDKMIziaQIRDEMw5SSNIxyAK0QBkAqNQCkKKwIgmNYDSBMYABB" & _
	"IMBwiGQaRJnegYRDUMJCQjRVITVLMNoXDKZIyqEAHfpWVJWSLHcIhDBJUjcOYyTiOQrzCK8dB0G6bIrGEZpYRAPwEYDIIjbQhqFYDChCNLwHScEAxC4kLhnKK6Vb9d6H" & _
	"YhiOJYXhmDrfR7IMhyLI8QafFqXZhmOZZXizPY9T7QNB0LQ8eZbJqnahqOpaOx2W5dV7YNh2LTWGzXNq3bhuOzLbrme59X7gOB3RZeE4XRrHchxKq8XxnG6dZ7oOTUXo" & _
	"fFOK5WmudQTh2LpfHOO5em+doSh4LwfhOS5mnGIw9D6LxfjOW5unSIQ+D8L4flOa5yD2fg/D+L5fnOe54ByigGAKAJgEgBBrgGYIICYCoCmCSAcGOA5hAgRgSgSYQBGo" & _
	"FoFmGCBmBqBphGESgegeYgIgYIoHkSKIWCaCZigiJgqgqYhog4LoLmGSJGDKBZhEiVg2gMY4ImYCIBGOSJ1n6D5kAeZZ2hCZBHj4RoRl6J4eEqEpeAkNhOHaXYJEYUh0" & _
	"GUSRVkwchlgkZZChaZZGnWOoXmYBpOGKGJamaLhmhmWhJiYahnlmSY2G4ZZZEmRhyGMZxJlWCBhFCFgWHaHpYkmSh+GSJp6AWG4amgRoOGeIZahmEoKGyJgKDWOIXGkB" & _
	"wGFmJJcHkWoWHQJQqGWVoTmmRx+EuJ5eFkIoiHuJBKhWdIQGqB52D2KpgDiaougMIxqyODJrEgbgvi2YgYjKOoumKSpij4FIrFsBg0iyLBKj6RoOmqSwmimMpkCqGpOi" & _
	"ibQJCaII0mmWxWFCJotgoXpahWaRLHaEY3mWag6mKIpuEmFoIjmaBbiYbIgi6RhaH+O5Onmcpyh2VYAAEASAg")
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exHLines
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Columns.Item(1)
		.GroupByFormatCell = "'EmployeeID: ' + <caption> + '<br><font ;7><fgcolor=808080>Count: ' + value"
	End With
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgrid1_AddItem(ByVal sender As System.Object, ByVal Item As Integer) Handles Exgrid1.AddItem
	With Exgrid1
		.Items.set_ItemDividerLine(Item,exontrol.EXGRIDLib.DividerLineEnum.EmptyLine)
	End With
End Sub

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exgrid1.MouseMoveEvent
	Dim c,h,hit
	With Exgrid1
		h = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .Items.get_GroupItem(h) )
	End With
End Sub

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Exgrid1_AddGroupItem(ByVal sender As System.Object, ByVal Item As Integer) Handles Exgrid1.AddGroupItem
	With Exgrid1
		.Items.set_ExpandItem(Item,False)
	End With
End Sub

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate()
End With

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "<fgcolor=FF0000>Try to drag the EmployeeID column here."
	.AllowGroupBy = True
	.Columns.Item(1).AllowGroupBy = False
	.EndUpdate()
End With

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	.EndUpdate()
End With

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate()
End With

With Exgrid1
	With .Columns.Add("Numbers").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		.Numeric = exontrol.EXGRIDLib.NumericEnum.exFloat
	End With
	.Items.AddItem(12)
End With

With Exgrid1
	With .Columns.Add("Numbers").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		.Numeric = exontrol.EXGRIDLib.NumericEnum.exInteger
	End With
	.Items.AddItem(12)
End With

With Exgrid1
	With .Columns.Add("Numbers").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.MaskType
		.Mask = "###.###"
	End With
	.Items.AddItem(12)
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox Or exontrol.EXGRIDLib.FilterListEnum.exSortItemsAsc Or exontrol.EXGRIDLib.FilterListEnum.exLeafItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.Filter = "Child 1"
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
	End With
	With .Columns.Add("Date")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox Or exontrol.EXGRIDLib.FilterListEnum.exNoItems
		.Filter = #12/28/2010#
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exDate
	End With
	.FilterCriteria = "%0 or %1"
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarOr,"<font ;18><fgcolor=FF0000>or</fgcolor></font>")
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,"<font ;18><fgcolor=FF0000>and</fgcolor></font>")
	With .Items
		h = .AddItem("Root 1")
		.set_CellValue(.InsertItem(h,Nothing,"Child 1"),1,#12/27/2010#)
		.set_CellValue(.InsertItem(h,Nothing,"Child 2"),1,#12/28/2010#)
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.set_CellValue(.InsertItem(h,Nothing,"Child 1"),1,#12/29/2010#)
		.set_CellValue(.InsertItem(h,Nothing,"Child 2"),1,#12/30/2010#)
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Date")
		.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox Or exontrol.EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Date")
		.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox Or exontrol.EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Dates")
		.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
		.Filter = "to 12/27/2010"
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exDate
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Dates")
		.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exNoItems
		.Filter = "to 12/27/2010"
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exDate
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Dates")
		.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarExclude,"Leaving out")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.set_SelectItem(.InsertItem(h,Nothing,"Child 2"),True)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowBlanks Or exontrol.EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowBlanks Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exSingleSel
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAll,"")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 12
	.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exThinLine
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
	End With
End With

Dim h
With Exgrid1
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.set_ExpandItem(h,True)
	End With
End With

Dim h
With Exgrid1
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
	End With
End With

Dim h
With Exgrid1
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesInsideLeaf
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.set_ExpandItem(h,True)
	End With
End With

Dim h
With Exgrid1
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesInside
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.set_ExpandItem(h,True)
	End With
End With

Dim h
With Exgrid1
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLines
	.Indent = 12
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 2"),Nothing,"SubChild 2")
		.InsertItem(h,Nothing,"Child 3")
		.set_ExpandItem(h,True)
	End With
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.DefaultItemHeight = 36
	.FullRowSelect = exontrol.EXGRIDLib.CellSelectEnum.exColumnSel
	With .Columns
		With .Add("Column1")
			.Visible = False
			.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		End With
		With .Add("Column2")
			.Visible = False
			.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		End With
		With .Add("Column3")
			.Alignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
			.HeaderAlignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
			.Visible = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasButton,True)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellButtonAutoWidth,True)
		End With
		With .Add("FormatLevel")
			.FormatLevel = "(0/1),2:64"
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellFormatLevel,.FormatLevel)
		End With
	End With
	With .Items
		h = .AddItem("Cell 1.1")
		.set_CellValue(h,1,"Cell 1.2")
		.set_CellValue(h,2,"Cell 1.3")
		h = .AddItem("Cell 2.1")
		.set_CellValue(h,1,"Cell 2.2")
		.set_CellValue(h,2,"Cell 2.3")
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
	End With
	With .VisualAppearance
		.Add(1,"XP:Button 3 12")
		.Add(2,"XP:Button 3 11")
		.Add(3,"XP:Button 3 10")
	End With
	.set_CheckImage(exontrol.EXGRIDLib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(exontrol.EXGRIDLib.CheckStateEnum.Checked,33554432)
	.set_CheckImage(exontrol.EXGRIDLib.CheckStateEnum.PartialChecked,50331648)
End With

With Exgrid1
	With .Columns.Add("Edit").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exEditAllowContextMenu,False)
	End With
	With .Items
		.AddItem(10)
		.AddItem(20)
	End With
End With

With Exgrid1
	With .Columns.Add("DropDownList").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
		.AddItem(1,"DDList 1")
		.AddItem(2,"DDList 2")
		.AddItem(3,"DDList 3")
	End With
	With .Columns.Add("DropDown").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownType
		.AddItem(1,"DDType 1")
		.AddItem(2,"DDType 2")
		.AddItem(3,"DDType 3")
	End With
	With .Items
		.set_CellValue(.AddItem(1),1,Exgrid1.Columns.Item(1).Editor.get_FindItem(1))
		.set_CellValue(.AddItem(2),1,Exgrid1.Columns.Item(1).Editor.get_FindItem(2))
	End With
End With

With Exgrid1
	With .Columns.Add("DropDownList").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	End With
	With .Columns.Add("DropDown").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownType
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	End With
	With .Items
		.set_CellValue(.AddItem(1),1,"Any")
		.set_CellValue(.AddItem(2),1,"Any")
	End With
End With

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Padding-Left").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exHeaderPaddingLeft,18)
	With .Columns.Add("Padding-Right")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exHeaderPaddingRight,18)
		.HeaderAlignment = exontrol.EXGRIDLib.AlignmentEnum.RightAlignment
	End With
	.EndUpdate()
End With

With Exgrid1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	With .Columns.Add("Padding-Left")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellPaddingLeft,18)
	End With
	.Columns.Add("No-Padding").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
	.Columns.Add("Empty").Position = 0
	With .Items
		.set_CellValue(.AddItem("Item A.1"),1,"Item A.2")
		.set_CellValue(.AddItem("Item B.1"),1,"Item B.2")
		.set_CellValue(.AddItem("Item C.1"),1,"Item C.2")
	End With
	.EndUpdate()
End With

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(0,True)
	End With
	.EndUpdate()
	.DefaultItemHeight = 12
	.Items.set_ItemHeight(0,12)
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		Debug.Print( "Locked:" )
		Debug.Print( .Items.get_IsItemLocked(Item) )
		With .Columns.Item(ColIndex)
			.Filter = NewValue
			.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exPattern
		End With
		.ApplyFilter()
	End With
End Sub

' MouseUp event - Occurs when the user releases a mouse button.
Private Sub Exgrid1_MouseUpEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exgrid1.MouseUpEvent
	With Exgrid1
		.Edit(.Items.get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0))
	End With
End Sub

Dim h,rs
With Exgrid1
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	With .Items
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,2)
		h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
		.get_CellEditor(h,0).EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
		.set_ItemHeight(h,4)
		.set_ItemDivider(h,0)
		.set_SelectableItem(h,False)
	End With
End With

' Event event - Notifies the application once the control fires an event.
Private Sub Exgrid1_Event(ByVal sender As System.Object, ByVal EventID As Integer) Handles Exgrid1.Event
	With Exgrid1
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.DefaultItemHeight = 36
	With .Columns
		With .Add("Column1")
			.Visible = False
			.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		End With
		With .Add("Column2")
			.Visible = False
			.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		End With
		.Add("Column3").Visible = False
		With .Add("FormatLevel")
			.FormatLevel = "(0/1),2"
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellFormatLevel,.FormatLevel)
		End With
	End With
	With .Items
		h = .AddItem("Cell 1.1")
		.set_CellValue(h,1,"Cell 1.2")
		.set_CellValue(h,2,"Cell 1.3")
		h = .AddItem("Cell 2.1")
		.set_CellValue(h,1,"Cell 2.2")
		.set_CellValue(h,2,"Cell 2.3")
	End With
	.EndUpdate()
End With

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.AutoDrag = exontrol.EXGRIDLib.AutoDragEnum.exAutoDragScroll
	.EndUpdate()
End With

Dim h,h1,h2,h3
With Exgrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_HTMLPicture("p1","c:\exontrol\images\card.png")
	.set_HTMLPicture("p2","c:\exontrol\images\sun.png")
	.AutoDrag = exontrol.EXGRIDLib.AutoDragEnum.exAutoDragCopySnapShot
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exNoLinesAtRoot
	.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exThinLine
	.ShowFocusRect = False
	.DefaultItemHeight = 26
	.Columns.Add("Task")
	With .Items
		h = .AddItem("<img>p1:32</img>Group 1")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_ItemDivider(h,0)
		.set_ItemBold(h,True)
		h1 = .InsertItem(h,Nothing,"Task 1")
		h2 = .InsertItem(h,Nothing,"Task 2")
		h3 = .InsertItem(h,Nothing,"Task 3")
		h = .AddItem("<img>p2:32</img>Group 2")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_ItemBold(h,True)
		.set_ItemDivider(h,0)
		h1 = .InsertItem(h,Nothing,"Task")
		.set_ExpandItem(0,True)
	End With
	.EndUpdate()
End With

Dim h,rs,var_HTMLPicture
With Exgrid1
	.BeginUpdate()
	.set_HTMLPicture("p1","gCJKBOI4NBQaBQAhQNJJIIhShQAIERFQIA0RAYGLriiIEM5BJpBiIARYlMBNhQPLhJIhBKhoQLlTTLV4la5VYx/fZVOoee7de62drYdI4YIWcIteIQEbEEAzCghEwIR" & _
	"IZKSmJD8EIZMzARgZKYmEAmDISYgEAISIJKdg4JzSOK7bp9b73HiqezeNYxLD7Th7N67dpmQSQIZJUpzVRqT46PY9Xy1yL2Qz/c6HXbzHoAKYgWrzC7tZDtLgBOpzOaj" & _
	"QApWDXZwOdABb6eHa+fCHMTCB7AMo7S6AIxMcADcAIfHEe6AQ7/G7zfhfHqeAb/AJ8B6TfITMAVGLrd4Db78aY/fydH77axfPjjS5fP7tcLMY6EOYed4dbyHcwHCoHfA" & _
	"ICCApOHEDgcA+OAnACAJgBya5jAoLh5hCc4OGcQ47GeQIBneNoGHaTI5kAKxOHuHAzjGXp5mwAZgnyNB/nCPh9g+ABinGYA1kmGYAAqThjgGQRwHiThPC8Vhfnma5/ng" & _
	"XZvn8ew7keQBfmOUAYCIBj7ngbY/nqS4/nkDYzieXwLn+dp+j+EpiE8CAAEKNwZFOTZ3FCOpgHyRQHkCcAJmUDRzgEHwhAYHoRAGHxADuCAxAeDxOAcHA3jmRw4guaoa" & _
	"mcbZMAwM4EDWTkNgGqQqHYPJEDmKhrDwB4QmcKAsgkcQGGQHBLiYfBGjcCESFATIID0KgDjgBJ3hGVQVk4JZqHcbpklef58g+fwFScd09j+AwnECWY0FeEIBFmdIyAsZ" & _
	"4fHyEIRB6Ch4F8UZLDWdQ5CAAheEOTAxGmWgDhqYIaEGO4AgiAYNm8RhwACKo4HaCgviCHptB4Uo9ACAQlFsG5rEINAFh4WpxAQRAqE4QAlGARJGjmLw2EYfAdk8DIom" & _
	"YGJKjISY5AiChKGYIg/EMUg7iEGZ7B8GABn4Do0jYWRVASMgiGoLwTHMdJKEkaI9CaZwej6H85mcCAGlwBQfFoH4bFyJgEAOdRBBCEoSC4ZpUAOOpwBURBbieeYzEeKw" & _
	"IAOJQAFSVABp6U5Kg+PhvkGex8HAOJnE2ZgPF4WY1kQHALiic54lcYYQiAQ55g6VQbHMdZfjyF4PCYTTLkaAQGCadRIE0VImlQLQgm0EhalsNYMkgHRMDKHpiGoEYmlA" & _
	"RpZDQYQMiECYzHwQhEHCKZOmOVZ+mMJYgFqIRgBYVoLCmXgHlAaoeCUYJKgcU4IneHoQiIQR5kIDBEBiGhMDoHgL4CQ/BiBeEIOILgRBaBwL8fweAZiZGaNEWoYBwjuB" & _
	"SAAOoiASBECMJwG44Qih6EEDMcIRBmCyBcPQRgwwBCRECJgPQ+h0gRBCDQZYNwXjwB8FAVYvQsC8BSKYWy+BvABC8DwSobAghSAEOoFgjGKAVEeJCA4oBxDZB2PwWQCW" & _
	"qgQAkCEAgfA4D2HSB0PwEwsBdCICkBoKgIjVAEFcD4gw8D0CsAEXwnQtgFBoAUPIahmiICANQRwWgjCDGKAsbwEBaCjEozkWQDhECcCiMsIAjBIiQBMAYA4DRUCMBsCk" & _
	"YA+xaCFESG8P4LwBCqGqIQOgiRtASESIYOA+xmAnCoIUYo1QJhiE4BIAT+REghVkG0SwcgnCbAEJoI44QoCnFQFQCgjx0BdCSG8XIzQegFc0KgbIJgWgkDUBkOIrgEic" & _
	"COKAM4HBwDnA+JkIQXg9jYBmJ1SI3w4hxDsIYNQzxnDeEUPkZwIQfAaFcE0LQmwsAtEsEYAo8BXCjCsEAAYLggDQEIOQYIsBWgeFSBkEo4A+iPBQIQGAIQ8AIBCBEPow" & _
	"BDjQCkKQAAHhoiMBGFEWoggFDqEkBkIA7RcjKDwNcAYthjh9AeBAIoKhCDUDaD0YIewUAlFiFoRqrBlhVGOHoAoXw9ADH0H4cA2RZieFmAsZAQwnitHgPoS4RhfDyEqH" & _
	"MaQcAhiaHoAQa4gwDCzCEB4GISgIgACeM0DIHwQi0AZAkOIGgoCfFQncQ4ZhcgqHYB8HwagsCPGaOoZwAhQATHGAwKgcAAiVGMjsSIihRBcFeK4CILQ7hjGAMsCoUBSg" & _
	"iEANMYg1RiiCAoKAd45wuCeDMK4VwYAbA3AQDgIwchDCUD2EIdAqA8gkCuAsSgXQZCcFeFcM4jAxhPHYOYZgdxHChAwCwJQhQ4hMB4H8SwKAKgeA4MMfwQQRV9qGPcGw" & _
	"UQDjOBOGoDwUA9BWBuJ8CEIxlh7G+MgKgxRciEEkHERo9hUBWWIJURgqhRA4CoEsJYjxXhQAAKKoY8R6DjGYLMaYjgMAgBKKgAQwQ7jcBYGAP4Fx9TnE8MMOgAhDiHFg" & _
	"FgYAcAFA7F2DATYdxGCjCCGcWIgBzinAWI4R4MxZh5FEMgEIVwrgzCUPESgIhCCYCwP4CgPg/DiASDEQIwhnBuBIMYIQ6g9X2D2GYOYmxTD3AcB8CQ3hbh4FaGoHI3gk" & _
	"j7HIE4awEAiAtAaCkXwxQSBAH6CsEAgBhi5BSMscoihug5HxmgLgZQFhYAqKYGIMRPgvCwCwFgqh9gwFOOQAoKg4D8pm2UOIeQOAAHwOgEYWBXA7BcC4I4tBHDgBlkoQ" & _
	"95x7hJFaN4OgwRbgAHWPEYIcw6gFFqEYUwUxnhsB8DITYGQciaHeL0bIKBZADAoG0CgFxWioDuGYNolQLAEAWkEagowVCs2SFAeIWBzD7A5NwC4kAuB4DgAQWYqRuj7G" & _
	"SAoQwDCtgZH0OQCYGBjgOAiDgbAzxmBmDgHzjQQBvh3k+CwS4PR1jRHEMcNgAhLgXGMCsPgGAsguGeBkQ4cxTDzCGKYWYfQpDwCoAoRQZwzguA4B4BrVhsA7HhycDIpQ" & _
	"jhrDCHkeoiR4gLDQIQYIXAtMfD6EAdQaBrMBEiLEJIFAoAdCiBEKgow8jNHOCqwgrhMi+A2PEMIThWiZFcIMaoCBIhEGSJkTgOwhCAFGAcBIRxvCmBqIcLIvwrC4FyIE" & _
	"dYBRqDaEiEcRAYRBi/GcFIc4OBJDLCmNYVYGwzdGBMNMDIqgYC2DyO8dwQQLgHCWLsJwEB4hIHGNkVwWRvreAiI0LQKwRDZGwKAVgUQGD7AcEEUgIAnBQFEI0f4XAEO6" & _
	"GsHADoaBSDkEKE0DQwwoCuBMMwQYBx4DwAIEoDwjQOBYhUgNhGAGBwgWB9gCADhXBZhkBfgtAAgFApBNhKABAcuohnAPhphug6B2B3BehghyAghRArAWBgAjBghDhPAp" & _
	"AZF1DsB4hjAlBUBFBEhThiheArAFhVBtB1BIhuBiAHgUALBMgXhXg/hGAqAggbAuB+hZgKgQHdBSgTAxA2A1AfBDhigRBAgyBzApgFhAAjh9goAlhvBSBsArACsBgshA" & _
	"BBhNgVgphqBvBAg8higxA0hPhoghhkgNgcBaBtBRhhBdBHB2B2AeBQgFgRhxh4ADAYgsgtBWBahchdBgB6h8gjgTBMABgIgghqh0AXAcAJhtBEAQAVBigZBMh5hUAKBN" & _
	"guAKAph+BVgQBYBglUBUgKgbAOhZgEgOAOhghygagOAOAgAlARhRA5hOByAWh6g6p/gugChjAAhrABhWBDBHA6hDByBtgaBeg8hpATBVvSg2vRgDhSAHJxvQA+AhB4A5" & _
	"hJB3h0gzgjhUAEBagFAnhPg/g2BUhIqJhchGA3hUgJBmh8BIAmAAgnB4BnBxhegjgMgtAyhsgphVheAdADA+O2hAhzB4AQBxA+AzAsABhpBYgBATBuhOheB1BshTBNBZ" & _
	"g5gsBWAWAnBWALBYBUAOwAh0gTARhoB4segWBrg4A/Awhgh5h6Bch4hFhRghgFhSAjgjhwAshYBcAfAhh1AgAkAeg3geh5A8G2BSh6gHAAAVBnAghGBQBdA3A+gEAggM" & _
	"gfhqgth4BQlMBXgGBBA3BJgxhZg0g7BVhEBhB/A3AxBahlBWP0g7BMh0h9BiBoh/AkBvhMh4AqnwABhjAWh0hEBUgCgjh2gUA1gcAdBAhOgOhMAmBggZh5BjA1gOgtBQ" & _
	"h3h2hWBCg2gLgpAVsNBWhnAUBZhAhfBvgRhCAwASh6hbAUgyBihJBEBwA6gmh4BggBBSBBAygABghEgIgWAaBQB3BKgFAYBRAQAFBggig0BGgFAIg5hYhKBwB5BlAYBe" & _
	"gPAwAuA6h2B3hhhnA+ASBiBGA5g4BYADgYhGBUBBhVhNhcgispBFA4A/hnhyAFhnAEBKH9hjh6gNBnAnAwgfB1gMhjhAh0hmBsAwBWhQAsBygshDAChYhNhZguB6AuES" & _
	"BeB+gXB+ByABg3gugVgeAvg9g7hwBBgPh3z/AmATBYA/gsBshthngrBlBZhiBCgugaBeAFABBnA2h4hWAtB3BcBnBWghAxA1g/BCACBFgahKAFA+hrgIimgXAIhhBkBg" & _
	"hAhihCwVArhshvA4h+AwASAChAAHAqhVgVoTB5B1gIoOAxBBBphzgegbgFgcAeB2BggMgWA1BDBWB4BxgHgLAmMrBrB1gHAUgdgeA9BdgJEbhDgfhNAQhah5B7AXhWhI" & _
	"hdByAjh3gCgpB2Acg+hvB5hzBLhLhSBnB0BdhfBSBfqRgNhVAFAQhMB1hrhNAEhQhY1SB0ANAxgxA7gDg7A7gwBWAMg+BRB1hmBxApAjhlhtg6ADBAhdA8g8hZBpArBG" & _
	"ANBFhTA2g3hQhLBIhshWBxhggQgmA9g8B/BeBxzzh/AXh8JCgDAqAdglAMg8B+AJhMBnBwB0BgggAPAjhrBFgThqA4gigPADgiAVASudB6gJBUhAgtAwB3h4BFFxhwBh" & _
	"h7hQhyAhBnAlh6ASgOh/B9gFBIBrA8g6hbh2hWgrBmgpA1BjB9gkAmAWgAALBMA7g4A6AABnA6hLACglBjBChCAVBth9Atg1BTB3gGhZhhg0BrhvBNhJBSBvAzBTBjgn" & _
	"hwBTgPhhBig8hjsJBIgRBKhPBJAjgXAXoYgPAHAHgABrhRhoB8U0B5BzBGBqhxBFAVAYBGAVg5BUhqAtAMhrgFhzAdgbhSAqA8B7AKAlAvB4gJANB4AxALAoAiVhpxBk" & _
	"hqBZARBiAUgZBXBbAvKRARAzhFgGg9hdhMhshmAMARAMAIh5BnBeAgA6AyAdAMhUi4BeBPhsBMqrgzhJh3BdAchRARhXBYhhAYg7guAuhGAEBzAchLgrhYBeAMosB0AU" & _
	"B8hNBygmhnquAbgbgOgHAVhaA/B6AvBvgwBthRhdBwB9h/g3A4BEhohdBgh3h/gwA3BHge0eg4B6BwBLBtg+BHABAOBagzApBNApBOh6gBghB5gBAI4QgLhTAEBMhBgu" & _
	"gRgkhnAihOBlgtglhLBNBEg0hFBzBIvEhbhvBYBkB3gugzg+BehNBTg8A3hrhRBjAGhvA/BqBwhuBkBigygjgkAOgugbg5A+gGhpgkhnhkghh1gvAdAzhWhdBLBWAoAM" & _
	"h4BYhbg3AqAZBHhBBjhiB/ACBqgPBjhADNAfh+hoBdAtgpAfgmhCh3gghgANBIg2BegABQAaAXg0AHBBBLAxAYM0AiBXg6gyhSgWANhLgzglhRAoBMB6ARgpAWhWg3Bt" & _
	"BrR9hAAqg8gLAPtxAZhlgZAjhDgRgHgn1PgEBhgxBiB9hHAHgfgAAI09A1BYhZqNAwAYAHBWklgGBsgIBYhizSB4BMA4g8BjBcLHXkhCjqAIg1AsgwPRhWhsBshcBJBq" & _
	"gEhMhhhBgUg8gsA2gCgHAQhBYYAzBaBAgnBkgAARgRZShpgLANA3BxgChmgVhyBnAmBBADgaBJmrh0iUB+hwB+gzB+h2gyA9hRhigdAIA+BHhkAkgtnMgAhehShtAHZz" & _
	"BRgUidgqNYrtR1hThggtAEAfAohiBCBOA6AjA4gyhZgHA4ATg3BsB6g2hytDhPQwhjD5gLAVp+BDBsATgppBBkgMhzgdoOP+YahHB0BBW7gHBHAdBDB6hkB4gEhqAdB4" & _
	"ByBRhPBbuqBLBrACAPB/g2BwBmhbhPBQgWg2h/B2BhgJhvA+B6AGBzhwB+AGOkAJhSB6B0All2BUgaB0BtAtBEgkBjAbgbAUBJBbh7rOgyh9h2A7B2A+gzhtACAmBaZ1" & _
	"Bqh6BWgWgmgrAMvbBdgLALgjAOA0gdsEBfhlgLAhhrA1hcBcBYAzhaggAUgoAjBxgQhpBVBoBJBsgXBzBqI4gLgTgGB1gJgHBHgNApg+gkgLA8BQgjhqAaBqBpBQA1gu" & _
	"h5gWg6BNB/hEhvArhkBlhdBWgbBDA9gxgbAChuAjAcA2hSh6ATBWgkglhPhNgKAEhOgug1hxB0AEA3BXBmhRQRAZBrgBApBPg2g8hCgaByhUE8BUhKhwBHvMhKhwhrAP" & _
	"A9h4g8A0gYhaBMhqAzhvA/h4hwhlgDA/hrBQh7g1gDBcAug4AogAhSAhgbh6hiAjAQg1BXB+h9B1gjBKBdACBageBxh0hpgJgOATgUATBwBJhPhPhwAeh6ApzQgnA8B2" & _
	"glgegVBhgrAgg9AlgChbgZhHAXhvBsAuBeA2ArhiA7BoBFgHgvgZBsBIgvBVAMA1gxgAhtA2hfg3geBkAlB1BYrbhbgKhzBbBUhEpeMhgOhnA+hGg7hvBQhWgwBGhSB3" & _
	"A1heB5h3AahUhvhahtBvgGhQAOgRBhhbAtg6gDgBA2gEhjBtTmA2gMgshvOYB8h4B8BVgLAig+g1AGhChtheBdgIh0B3AZgYB5B5gUgCg8BBhghFglBdAHhLg8ccBagh" & _
	"gShvB0hwAhBWgxglhlgNgkBSArA612tcg6gZhrBLUohIgZBQZVAWFNh1h/BVhyBNhNgGAKA2BTgkAAhtgQhZBsgdB5BPhvh8hNhfh9h9A3g+h5gNhfhdAdB9B+h0Ahg2" & _
	"BmgiBYhGgGhYB2hUh8gIAthHhXA2hEB4BbB0E5haBwAOBvAjgxgvBtgTBFhjg8hHhqA5A/gmA2glhxg2gJhDAWhKhsg5BLgChrhth9n6giAVgwhhhnhOg0hlBuh8h3O1" & _
	"g6h5gdg5gPhzgOhZAvBKg/h9EuB+AXhwAEg4TXBIhUgHAtgTA/AOg8AJh8ARhwBrhsAaABA/hYhHBFAEh/gXhgA9pRk8BjA8g7hAgxg2A3hoAIhbAsg1BFAUhxBFhfAo" & _
	"hVAAhFAAhZh+AphwAYhbAzg0BsXwBcBugUhbBhh2g7Acgt5fhxAPhBAwg/AEguW/hgAkBBhgBzA0Bdg3faBwBFg3h+hmhYh4hBfSgxg5h1A/gBheADASgcAKg/gJAjCR" & _
	"gkgignAiBXAhAwBBCAg==")
	.set_HTMLPicture("p2","gCJKBOI4NBQaBQAhQNJJIIhShQAFUREQIA0RFKQJY2iIJOBILJzhQOYkjYgBSorBwbhQKJ5pIZDKBQNBvOhvOc1OAgJMxEBwORvMxpNhlhR4bSdKZnKhTdIWHr3bz0I" & _
	"RLRCAShLN5SCoIEBSISLQAUSImFQhBIQJSIEKhbIVKLBCJFIoEDbIUCIAaORyARlwFgMRQKbAHcghUSOQajRCKZT7cJ7UZray8e7mZr+WrXHznVjzTqzZ4HYAIBiWJAz" & _
	"KI1QAMVJCDwRcCDY7EYzhcguICBBQkOAACAIWZkEJzfojAIAfB+Hg8FYiYAHXwAAJ4aYLBAAYBNTbAGAcQ7/B7qISZLgBQCEALAOiRHBLBFjABAPSOISm+ZG9CdTAmKY" & _
	"AFAAgADAZYxjEcYACgFsBhOP5zGmABAE6fBMj25ItkoEIKgCUBIgAEAJjKRAiAANAdgAVhnisRQigALAYAACgzCWYgcgAbEFhgJIrjMJAAFgW7tGcCAFlkADTAAGAokQ" & _
	"QoUgAAg9wGZARhGPAAEITMYiMeQrh4eIVlcCBzomAA8EyWQeFyEgciKQItgQFo4gOK4rhcDwUGcJILhWCgbDCAQwk0IAXGEPJMgyGRAhoB5wHmZiFQ6CrZEGeZ+jwZwH" & _
	"FcZxnBsRxbAcL4WnUX4DH+EQxQOfxymeVY4CAhRwjoPxon8FgXlmDRAB2AxADafxRBKdwCDQLwFlAOp7kWMxZAeIBawAdJtCueY4OW5oilCSBcmybJynIchsCUYghC2M" & _
	"JlCuPp/DOYQvmAK5+jYfLmH4e56nAXxxBIQIZC6QIjgIfBwGEZh6CYUoOGeSQEkIMRuHMR4jn4W4Fn+fgOmmERiCSMRciwFQKHGKIJDiRwiE0Rh5hkUoRESIRJBSYoSm" & _
	"kf4yHEb4WH2AYfG+GsfjUHwAj2SIWlQLoxgGewlhOCAsDoYBxHuhR5F2N5gmoFAEAGQA0EGcJnjuf53h+fojlAEsIjMJJJDihQvCIEgXCoZRZh+Y7sgAIhQECFRYCCDZ" & _
	"6GCDAWGAAwOGCApuGCBZ+DAGxCCEEhiGEIQICEBQyEADg5DAFJWEEIQUEMZpYA6FQwBeaggA6GhgCiNBDEmOAHUIKpcAcHo4AefQwgQTxghQXhAgSAggmQBAJjCEJtEQ" & _
	"AIxEULARkcBALkyQp8BCYIkAICRFhIEBkkQCgohEJZIhqJAYikRQqBAKokA6eQejkAQckOLgjF0SIdmQAAZEEPwQwvAjgxEoIEWQUQejUAYLUIYuRUA3A0IQIwogFjQD" & _
	"IHQGImhHgWFAJsaAchaAaB6IwGwoRzjQFWGgB42hHg+CGMcGAwB0AYAODMYgbAYAuGMMMIQsQcAsASJMMYyxYgiFYAwVYxgNCwCsKwAYuxEj1DGM8WId3tiBCKMABINg" & _
	"CB3CECAMIHgghICwEwLAThsBIFQCADgJAaARG0AkG4CQBiECiMIE4IhJioCWLQEwugIj5GIBgMQMgYiHCwEgFgIxrASEeBMF4EA9iICGMQG4JAJCJCGDIE4uRIACCSLE" & _
	"UgVBpASGkEYaQbgpAjHSCwVImwaBIA0CMSYyRtBkDWLIA4ORKAsBACsZAhRyCdHIMMcgMxyAbMOPILYChOhiCAHEUg+ApjiBQFIZQaglAZHKBAcoNBygGDKJgGQQQqij" & _
	"E0FIboqBQhUAiDUR4WghCtFCLYKQrwoiHFQBMGgdRNA5GaIMCwSQlilFaKISo0wNBoAuGge4aRXjoDpIAbolQPBOEuNAK40hljpCOOgS46ABj0DuAwBohgKm0EQGcFAG" & _
	"RNw0AwGcDIdwMCvEwEwUwGRpiLAyMcKgMAbgxHWJgc4mQHiZDeFVjwtgVB8AqJEZQChKhKEqCYSoGwVAvCoKkVQphVDeFUAsKo8wqjLCoI8VIXgph9FcEYKoMwpjjFSA" & _
	"kaglhVhVFUJ0KA6wpgbKWKkHYqBDiqDOKgN4VAfikD8FkfoiQDBZGGEwYYTwhikCiKAWIXxxi8GMCABYYwMizDwCwEIawGirEMHUQINRiAmFiM0bIfA7AqF2JgfoHRdi" & _
	"LB6KoVIoQchDBmEoGYVxZhSHmJQMwPwDjjEwHEfAnA6BOASOcFApxLjzD8IobwFB3gpHECkDYpgaBMFyDEMoXA1iqEsJcSwWBVhIFWFEVYRx1i9BsK4dopxOimF6EUXY" & _
	"WR9iBAcEEY4SgThcBOEcM4jxnAFE6OcKY2QpjdFOAoU4Fgmg9B0PUVwLhVBrFKBsUIuwiB3F+G4U47hMCeF8F4QAngmBvFON4PIvRzj6A4H0F4/QqD9DaPoU49QjgMCw" & _
	"AYWYDASAGG2AwZwGAeDFBqHEN4PAOgvGONseIUQhhdGGEAIYpQwiVDCJccIhBIi5GiDwUY1QjCNCMA8RgaRjBcHGCQcYbRjZ4FGCYAwJgQgmCWE0dQTR3TpCaLkUwKRT" & _
	"A7CZowY4zRmDNFEM0awmQaibB6DEa4Mhzib06NcTY3xbhgC0HgLQLBbCoFsLgMoSRZDkC0KYLI7hbC8DcIULQOQsilCwFULQXRZhGFaJ0VoJRrC7FaLsU4ERTi5CcJMJ" & _
	"wqxPDWDOMMWA8RbDJFsKkW4GRYDlGxkoVwtg2i2D6GEM4YgLhnFuMUVwwx3CTF6JMPoug+iNH6D0A4DRDjZAcKsDoWgOh+DmLQOQFAdBWB0N4TQzhODuB+H0Yo9BLDpB" & _
	"eGcLAzwIDPGwDMcYtgJjLBSMQNJShNjTwVusXIc1KCIEWIkJYghlguEuD4FwmwNjGG6MgXo5AlB0HqHELo4Q9DSHqJ0TYsxNjCHaKgbYrx3A2HcGkdwhxuCfGYDQT4KR" & _
	"PBZBmHMaAwxkBDHAFEco0QfgLE+JUGAaxvisD9ZQJ4gQzi1HOCMF4YwXiRCuK0a6QBSh3FUPcMI7wLg+HsD4OQnxxg+HGDwG43gZDeCyF8ZgNxgC3GQLcZYTxhhvE8F8" & _
	"Qo3whh/BGzQf4eh/jRAAKcQAJQAhnAGIkQIQU3ACH2PgPQfAQi/EcD8HQ2wyj2FkNkdoQRGCgFyEECoQRHiCFaIIcowRWghDQMgdgkPqj3HOJgZwkRnBpAcIUKAfh0DW" & _
	"GgAcMI5gwiLGGH4BgJxCiHEKFcQwPxHBwEQFgDQ0QYhLgag7hohuAhg5hvgiB9AiBLAiBvBNgzgYgngchXgWglAagVAfBVAXA1AeBtAbhdAaBdAfhjAXAzAshmBqgsBO" & _
	"gsAkg2AlgOAcgXAVBXAbA3A2BfBvh+B2h5hDhxBOhxAFhxg9gLhMAXhkAug4A8hQhnBhB6BCsLhUgXAJAWAdBLAgAmBEAnAcBKB4AggIAVBUALBGASh5AJg7gShHAFA8" & _
	"hhAOhhAzgRAXhogbBohEBsAhguAVKLh5AkAVAmg9BJB2BIheAag8gSBigZhSgWByhchCAThUhIBeAmAGgmBuhNgdBPALBNA7AQA2gZMNBegYhBhJBIhIA4ghBVAQgmhJ" & _
	"hbAzh1AzhzAzA7BlhWAyhChZB/Big3BFhbgXgPBKgDhkg1hZhIBWACgsgWgFBbD7h0AqAtAUBrgVADhZAzgykeBfhmhEhlAcq7BPAVhmh2hmBZhlBthIAbhOB3hPh/h2" & _
	"gJBhAJBwhJBbBShDAlgrgWgOgsBzBehWA1Ack0A4g8htgFBxgKgCgVhDArADBWAeBcBFKmA2hqgnhVh2grhLhXA/BegTA9Amg1hAgvBghlBBBghagAg1h1qxAFByhCg+" & _
	"h1huBrh2gugngsAXgshvhagwh9BDBOgNgfAKhEhFBXAKBtgLhLgKg/hsAUBuA8BygNhDg3hlBfhMhuBKBaBUhVhiBcgyBngzBpAzB0hzBvAWhPAtgHBLBVBLhzBLgHA3" & _
	"AGhshtBaAGhvgrBaB2h6h7AihtgXhLhmgUBthdhBhbIGhRhfyFBeAyhThkhnBmgdgfgqJRh6AqB9AqOpBpBuyahrh8A3Boh3ANg9heB7AaB2BqhtgtjLB+gfBkhfBtgq" & _
	"gAgqgmhqgzBqgyh9gkh9hZh7gfhXBEhVB0h8BLB9g2guhWgnA2g4h2hjgBhpABh+gDgRgHBbBrhchqBqgOhpAegqApBHhrAVh1gjgHBjgPhfB/BOh3g7gWgGgbAGgqhG" & _
	"hOBjBxARg4AiA8hyB0h7gEhvh7gPAGgdBtA7BGA9hWBwgDhpgPg7AOgzsqg1AhBNB5BNAjBNgphNB9gtgxAthdAnhmAfBohrB1BvA9B+AjhtgPgHhOAaAeAsg8glB5gq" & _
	"Bkg0htB0hBBphJgzh5BnhGBOhKhOg+g/AXB8huAwBthRBbA9hzgxhnBvg1AHg3h3hdAIA6BwhpAih/hFhzgdheAdhnAuB5BcA6B5BZBthygJgrhcArhNBXgdAvg2h1A6" & _
	"B1AeB/BJhpgnhjhdhOBdhNBXBcr0Bch3A9Behag9gzB7h0gNhPAbhnBuh6Beg8h4gLB/hrBqhPAcgehuheh5g9A3h7hil6hvgLBug/A5ATh+hnBlhdhsg7gTh3BWheAn" & _
	"heAvh6AgPjhsghhuhDhqgfgth/BuBsB3huA/g1BgA7hQB5wBgjh7gDBChBhnh/BIh6hHgHghgChHhMhHhlhDKTh1hPAcAfAcgchxAfg5B+h0h+BTghhnysATBPALlfh/" & _
	"BlhXALgLAXg/B8Bqh1hrhnBohMBohQhLh5BLhJhfg2g+BSh+h1BgB1gMhXhthjBhBjAPBfBkg8AZgYgvB6ArB9h2hgg7huA7gOh3hRhvgHgnhyA+AQA/gUB/g0B8hYh6" & _
	"gphoBTh9hJgMhJhJh/gCABhMB5h+AxgZgWhtiIgCAzgggmggiFBYhHA+B9gohJiIgQAxgkApAmiFA9GzkIhBiFB8h/iFBAB0iFA6kYAAB1AwCFAdBMCFALg3hJAvhigj" & _
	"CFAFh9AkgiAggqCkBWBMAshHguhjg4hjh/15Bsh3AZB7hnAGBDghg1AiBMgtCQBZASgtycBigkBIALh9gSg3gghfAgAfAkhfAkAIByASggBADqBBAWAgB5AIACBEAxAl" & _
	"hbAygWhqM8hDBRAcAZhOB6g3Azh0hWh5AYKaBpAItWg4gBhCg9hABBhth+h1h/quMOgxAzB+BygvjjhfBlAwAIBWA6AUA6gFhUAfBFBzALAKg6AEBGAvAIgzB5AVhnAy" & _
	"AngChRhuBag1hnhUh029AQh6hKxyhoh9g8BzgOh4A1grgZguB/hnANh8Bbg/g/ANgigjAIAihHBTBKhlhMgEh1BwAmhUBqAAASAPBWh7hxhfh8BtgjhngFBvgwAYBEBK" & _
	"BGAAATi5ABA2gWhshEhSAlBMg6gfBChOh7g3puANoXhJgYB2ArgMAHHyBggGAxATA+BZh4haggFDhBBEACAIh6hzA9gtA0BQhZJWhxh9gbhMhMhBhkBIBjhSBthzBgg7" & _
	"BogvgLhbAch2g1BIgFAtBvhYBaA+gMBhAwBVAxhwAQAkBNASBEBnh7AGBABMggAiB/g3goAlAIAIBBEKBxAqAzBNBSA6Apg9h2AKBXgFBIhlguBzgUhqBJBlgogmBXAU" & _
	"hCgahPB9A9AgAehlA+rahPh2APh5hkg4gvg+gYBcgbA2hxgjgigRB1gqgpALBWg3BaAQAxASArAZGMgEAiglh5BXgEg9BbAigJAaBWAPhIBmgShKgqgUhqg6AfhFhnB1" & _
	"gZAWA6A2AyBPA9BigQBFgjhehUBegRgbgXhahmhWgaBYgHgihcgJAugJheAFhIB5h6AuA9BLhqhXAZwQgLB7h8hMgpgqhrh9BlA4ANAJg6g4hSgYB8WMhYBDBfBbBRBz" & _
	"h/gIBGACBOglg6h4h0BrhSh1gvgFhCBbBpA/BPBsglAKhfBMgygRBpAVA8BfAMhBgkA2grhNgbBrANhJAtgVhzBVMVhPAdAxgahxgwA5AdAYBqgoA9gpBnB9gCh3hvBP" & _
	"BWg2BGh6BfBbtKBlBAAMh5kBBiB0hYhSg/gdgUAAgcAHgegogUALAvAGgyBb3VhVBehNhxg7A2gehyAcgugmBYgPAYBmg9hujAgxgtAuAig9o/BzhZgwhDAwSBhEg0hL" & _
	"BhAeA3BihvB4AQAChahWgVgwhqhlAUAmTbB9yUBmhGgFgUh9BEg5hehXBqhrg+APBvArACAoBqAehnh+BqgKBSg5gxgTAogMBTg9xxAIABhzBygYAqg6AZAUAzBdhShn" & _
	"h6AoBCh7BSkZAR0+h9hqhFg9B9U+Agg3heg/g6gmhMBeABAgBEBvAwgfBPh+ByA4A/h7iagIgfgmArBvAegcA4B/g0h9heh1hdBhBkhhhRg3A3A9gVhpF0hXhxhJg9S8" & _
	"Bxg1hDg9hvA8OKhbhBBpBxhYAjAihkgWBSBFhogGBiA6AkBfBhhqAKA3ByAHBfANsEq8BThvhchaBcB+hpgVgthx6ZBigf2shHhghhG8AzgZhSBEAoh6BcBuBnBjhFgD" & _
	"h7g/heB5h0hOgPhuBWB2gFBXg+h3hWhhhOh2hPhMh/BzA8BKgfA/AjB8hLALhiglg7gRIpBfhbhQBTB4gWBCB8AlBFBBAghiASBUAaB5hOBBhbgmgKAMBEh9AsglBJhv" & _
	"AkhGBdAcBfB/hJg3hkhugfg/B4hDhXhyBzBhAyniB4BVADBEgHASTegmgIhEgRAUAHh0Augshjhlh1gyhbA7A1h9gnhvhfB4gvhVhFhFhrhTA1g7B3htgTAzADgJh4hm" & _
	"BngJgJA2APA6gyg9BaBohLhvADhxBThA8aBIASgmhSgnAugbA3glAXASgqAwhhgYBaA2hTBthsg5g9A4h4BjAqg5h/gnhXB/h4AahFhVBHgQBzggBTAQhGABBIgeApgK" & _
	"AAAcAgg5AABDhABsA7AAABL7g3hwAjhyA/h3h+hBh2gwg4AXh/glgWh5A2g2huBAAKg8hiBDB3APArhagIgFhGB8gQgMBxAlgghEgABIgQA0gMA7h5huBcAFgkhKhehw" & _
	"BBAGhYh2hCg9BfA/A+g4hxhTsdg0BlhRAHhSA2AAhZALBSAMhIA0g8h+BOg9goABAcBBAqAABUgAB7APAwhogxB2h9AIArhdhnhXhfhZg7h4BIhuAUBbeWgRC9gegmAN" & _
	"B6hEhcBpgDBVeQgnhTBqA5goBYgaARASAQhagogJh6hJBFg+BoBWBkB+hmhYgeA+hqhjh9A5BWA3h/BwBChzgugvhWgzAEAsgBgohshZgMgUABARAACNAoAfABgigBCI" & _
	"BCADhKADgkhHgaB70tBqgwPDBPh/Boh2hJhxBWhZdohACytSkQAwp26ISCyh0y3IEzO/jeKhUzzASQUjhs510AkmqTSVF24EeTEwf32+XCvWu+0uamI3ECcgEJE+QUkf" & _
	"gY8hiRUilnezxA2R0JEcUGS4Xk2mc+Fmhy230eeViTSsZAULFCc2+NRiSgiCRkPFCqDw7CuAigRGSREgbkkoWQEGkzQWnheCj+eGgH3qTwo5RmwCYQBsAmoAW4Ai4AzS" & _
	"aW4LFaBSkc3sDhawA6iA4yCIJB8wnUyDCSEOLyOqWuwCwAyK2x0n1iNgyOAQRCaX0snkIEBItTAqwgchSyAMhsIGlIw0afmqgRKA34KUgrgGMAAIkA/CYVVCAUky1enw" & _
	"A9jOwmEAXQADMEA+gmqHlQD3o82S5jS11YhyM3hqujLFwYgjPIURkHEGhTAQLwnH8AiUM8jAAN8CQ0BMLSELcKhrKsTD4DEcy6FgaQ3NImgBCEwA8AM3ANJAfgFFAlwB" & _
	"MoABSAAyRHB4ChaK4IxyIASwgM0wDxFMIDeAUKxAGYQCuOo0goLUYT7IMCxkHoiwhGUjgFDkKQ2FgtTdBcBgTAMSAMCQJQSAo2RZCsXCRFEWzpNQFA+LYSjCAsEgAAsB" & _
	"iEAEYDAHEHxEAoJA3AAMQAMgAAQEsLxlAAHhgA8TgTHAuAPMQOSYCscCsCERSEJQST6KYizNMkdAqHUPBhFkTgANkUhwCkBx9CEaACJACCcBwZT+MQXA4DUcCuMcpwxK" & _
	"QTgzMsfibHQywBKAqDAHIDDIAIxASIghzgDQAxiAUkjlDIsAIEABCnBoCAzIAawQCIWCWCAaQBCMAQ+IUDyqJM2iQM0qihLQ1RKEgtgGKkGClAkczEEcHznDcfSUBkFA" & _
	"lPslDFBomT0CoExBFskgSEoCyfHo8zaCsWA1AAcQJIIORTJAzAZBwSQwLsMwVJcCQfEgyxPK95AgO4wBwCAqiQEIixZJ0HydMo5g9G8ZgfMooA+KsUROLQrTaNE0DGBQ" & _
	"XB6OoERKGABCoXIMQ1F0CDkDoLx5MYgQfHYVB9HQcjcHsYzcOYlCMAUtBdqgXSaF4TgnB4lTbGcPjqAAPjPA4BA4IIcCMFkmzhNA9x3KoqjwKUzh7KwTDhJkagFHY7j0" & _
	"NARzfD0NSPJ43yHLgiwyCY0zvBAQytGU2yWDo6CYPUpifB8rDtG4TTmJssiyOAmCBFQDhQP4GCwFoZg5AACAAIcsxoD83xAAI4AIFQtzYL8IzZNsyyfDAxQHE48A9MgN" & _
	"glgghFFKJkKgTAiAyHiJca4owiBgAkCkdYDg6ipE0EIGQiQnCtA6LACI6hUD5GsI0bonQvhtB8LsBQeByBACiIAJgAQ9AEFWJcWAOBBgkf2AYJACgkCEHIrQGLzRnixG" & _
	"uD0X4ew4jrBkDEMYsxBjeFeJkD4shYh1EoD4BobAXglC+OINIUQ/juC2BwQoSgmi+G0DgJQhxShYDoCUT4iAwhxH4JwUgtQDg3A+F4Xw1xdh9FwDUPQYQBjeEqIAZQAQ" & _
	"ogCGQEEWAjwmgZGANwAIXBBhBDAMcCADQRhNHsHEfYbhrA8EgBcf4ehaisB8O8M4JRkjpBoFMbo8QUC2A6FMGYnxoBoAQPEUgoAnimFOHMF48AYBeAkJECojRJDJDiEY" & _
	"GYzRYDTEwK8bonA6DXDOO8Pw/BFg/H2J4bQ3gMC8HwBoQQrxgBcEAHQAIlgLDEA0CAQA2QBhJECOMLIfBUiYAgE8HxywvgeDsLcfoqw/g3G4NgHgcATjzEeE4I49o+jx" & _
	"CECUC4Exnh1HgAgUA+hrCHEAJAL4CkaCYGAPAJIAg4BdEMBkPY9AniiA0NYNADxli8HQHcPYiw1h/HmNYPYnx+D5FWO4ToKx1hXC+AcRoxwkBqAAE4fI8haDiFmOgcwG" & _
	"hpATDQHERQyR7O8D6PMUAuxKheH+PsWgsh9BPCaL0XAXxWhvCMMkawuA0h7CWNoJQpQVDEBIBASAmx/gtAuL8FAPQejmAECEGIpQXApByBMC4DhSivAuDIFgzAlCWC6G" & _
	"odQ5gBhbAcC8WoxQPj+GGH8P48hgw0HcLwfI/QzivHaAwQ4lxXDBFYDwA4sgxiAAKNgJoEB1j7EwO4PwjBujbDuOMewUQ7B7FsPofY/xfPWDkNAYIthYD6FQFkUggx/B" & _
	"mB+PYBQWwmAOG4MQQ46AkALGgKAf41AFD/A4JIDwVw7DOEGJoXADhrB3D8KAGGAwxDHCgCwAw6xChNDcPIbwIhvj6GyIQKwDw3jcEyLyLAeBZgYHsN4LgsxbDIEQIQeg" & _
	"3g6srCeE4XovQtibAuN8FYxxhijB4B8HwCB8jgFCAkOAdQWC6CoEoGwVAahcH2NkagzQiivCuP4T4gh8xgH+DgGAExAjnGiLYIwGhNDFHCKESgXidBODuF0bgkRTD3BA" & _
	"JceYbBaBqA+B4Y4zQ7inBoKkR46xiggAmGpZ4MY3h6G2FccQngKg2DUCUe4ZAvAJC6LsaAcQ3iXBmG4KoJBoj6GEB0GwnhujBEoLMAIRQJAEFgPgLQ9x9BlFWAUBIQho" & _
	"gxCsOsYQBhYjhFuKsYwmRDiVCaMMZIIhOhsY4HcQYjh3gzHKLcfQQwYj0F8GoRYfhbClHkJgaITB3AEEyI4KoRBxCsHkK4YokRWDKAEKcaYtgPBfB0M0JoAx8DIDaJcQ" & _
	"4vAUDBDSPIRoWwdB8G8HAMQEhqBGf0GIMYNhXC3GaKwW46hHBmA4LYZgTg2AxH8HUMQ8woBnHyIYSg7gkAoGmAkdorBkDsCcCYFINB2jsCIAUHoZBNidBoLIHQyh8jIG" & _
	"MC4GoCwNB1DaKwMfLhyA2B6K0d48BKh7CeHwLwBgCAmB0OEIIKhrieCSJMaATwrj8GeHsRI3BBg2AaGYaIhwnBajQJECY6QkBCFwJwVI2A7ghYSOsOYrQmhDEyFUNogx" & _
	"9DUC8J4ZY6QIhtGeC8XQcRPAgEQH8W43QeACCwFIYQfgehIA8JoZIpBTDrFaH8Cy0ApC5EuB4Tg1BQBsB6DcY42hgCWGKGgcIkhJh1GmIQSozRqhuD0DwSYvQIjiBOHs" & _
	"YYlBVgOAoOMeQ/gjC/C2NAeYEQQ0pCQIkPoPhUC8HGAgY4QQMCjB0O8cwbAFB5GECnoYoh4gOCIL4NY0xOjbD3B4B1BUAmClAyAYDFDLDKDqDrB1BKD/BnAADtCOCxD1" & _
	"DLZnCEAAgZAABJBFBOBECuBCBgCCEBA==")
	var_HTMLPicture = .get_HTMLPicture("aka1")
	.HeaderHeight = 24
	.DefaultItemHeight = 48
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.GridLineColor = Color.FromArgb(240,240,240)
	.SelBackMode = exontrol.EXGRIDLib.BackModeEnum.exTransparent
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.Columns.Item(0).set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
	.Columns.Item(0).FormatColumn = "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
	.Columns.Item(0).Width = 112
	.Columns.Item(1).set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,1)
	.Columns.Item(2).LevelKey = "1"
	.Columns.Item(3).LevelKey = "1"
	.Columns.Item(4).LevelKey = "1"
	.AutoDrag = exontrol.EXGRIDLib.AutoDragEnum.exAutoDragCopyImage
	.SingleSel = False
	With .Items
		h = .get_ItemByIndex(1)
		.set_SelectItem(h,True)
		h = .get_ItemByIndex(2)
		.set_SelectItem(h,True)
		h = .get_ItemByIndex(3)
		.set_SelectItem(h,True)
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,1)
		h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,0)
		.set_CellValue(h,1,"<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ...")
		.set_CellSingleLine(h,1,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap)
		.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellHAlignment(h,1,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
		.set_ItemDivider(h,1)
		.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerTop)
	End With
	.EndUpdate()
End With

Dim h,rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.Columns.Item(2).LevelKey = "1"
	.Columns.Item(3).LevelKey = "1"
	.Columns.Item(4).LevelKey = "1"
	.AutoDrag = exontrol.EXGRIDLib.AutoDragEnum.exAutoDragCopyText
	.SingleSel = False
	With .Items
		h = .get_ItemByIndex(1)
		.set_SelectItem(h,True)
		h = .get_ItemByIndex(3)
		.set_SelectItem(h,True)
		h = .get_ItemByIndex(4)
		.set_SelectItem(h,True)
		h = .get_ItemByIndex(5)
		.set_SelectItem(h,True)
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,1)
		h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,0)
		.set_CellValue(h,0,"<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ...")
		.set_CellSingleLine(h,0,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap)
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
		.set_ItemDivider(h,0)
		.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerTop)
	End With
	.EndUpdate()
End With

Dim h,h1,h2,h3
With Exgrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = exontrol.EXGRIDLib.AutoDragEnum.exAutoDragPositionAny
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exNoLinesAtRoot
	.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exSolidLine
	.HasButtons = exontrol.EXGRIDLib.ExpandButtonEnum.exWPlus
	.ShowFocusRect = False
	.SelBackMode = exontrol.EXGRIDLib.BackModeEnum.exTransparent
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Group 1")
		.set_ItemBold(h,True)
		.set_ItemDivider(h,0)
		h1 = .InsertItem(h,Nothing,"Task 1")
		h2 = .InsertItem(h1,Nothing,"Task 2")
		h2 = .InsertItem(h1,Nothing,"Task 3")
		h3 = .InsertItem(h,Nothing,"Task 3")
		.set_ExpandItem(h,True)
		.set_ExpandItem(h1,True)
		h = .AddItem("Group 2")
		.set_ItemBold(h,True)
		.set_ItemDivider(h,0)
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,1)
		h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,0)
		.set_CellValue(h,0,"Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the i" & _
	"ndentation.")
		.set_CellSingleLine(h,0,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap)
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
	End With
	.EndUpdate()
End With

Dim h,h1,h2,h3
With Exgrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = exontrol.EXGRIDLib.AutoDragEnum.exAutoDragPositionKeepIndent
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exNoLinesAtRoot
	.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exThinLine
	.ShowFocusRect = False
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Group 1")
		.set_ItemDivider(h,0)
		.set_ItemBold(h,True)
		h1 = .InsertItem(h,Nothing,"Task 1")
		h2 = .InsertItem(h,Nothing,"Task 2")
		h3 = .InsertItem(h,Nothing,"Task 3")
		.set_ExpandItem(h,True)
		h = .AddItem("Group 2")
		.set_ItemBold(h,True)
		.set_ItemDivider(h,0)
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exgrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = exontrol.EXGRIDLib.AutoDragEnum.exAutoDragPosition
	.Columns.Add("Task")
	With .Items
		h1 = .AddItem("Task 1")
		h2 = .AddItem("Task 2")
		h3 = .AddItem("Task 3")
	End With
	.EndUpdate()
End With

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Def")
	.HotBackColor = Color.FromArgb(0,0,128)
	.HotForeColor = Color.FromArgb(255,255,255)
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Items
		.AddItem("Task 1")
		.AddItem("Task 2")
	End With
	.EndUpdate()
	.Template = "Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();"
End With

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Default")
	With .Items
		.AddItem("Item 1")
		.AddItem("Task 2")
	End With
	.EndUpdate()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.PrintExt = Exgrid1.ExecuteTemplate("me")
		.Preview()
	End With
End With

With Exgrid1
	.BeginUpdate()
	With .ConditionalFormats.Add("1","K1")
		.BackColor = Color.FromArgb(255,0,0)
		.ApplyTo = &H1
	End With
	With .ConditionalFormats.Add("1","K2")
		.BackColor = Color.FromArgb(255,0,0)
		.ApplyTo = &H2
	End With
	.MarkSearchColumn = False
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
		.Add("Column 3")
	End With
	With .Items
		.AddItem()
		.AddItem()
		.AddItem()
	End With
	.EndUpdate()
End With

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub Exgrid1_ButtonClick(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByVal Key As Object) Handles Exgrid1.ButtonClick
	With Exgrid1
		With .DataSource
			.AddNew("Task","New-Task")
			.Update()
		End With
	End With
End Sub

' Error event - Fired when an internal error occurs.
Private Sub Exgrid1_Error(ByVal sender As System.Object, ByVal Err As Integer, ByVal Description As String) Handles Exgrid1.Error
	With Exgrid1
		Debug.Print( Description )
	End With
End Sub

Dim h,rs
With Exgrid1
	rs = New ADODB.Recordset()
	With rs.Fields
		.Append("Task",8)
		.Append("Start",7)
		.Append("End",7)
	End With
	rs.Open()
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.DetectAddNew = True
	.DetectDelete = True
	.DataSource = rs
	With .Items
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
		h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
		.set_ItemDivider(h,0)
		.set_ItemHeight(h,22)
		.set_CellValue(h,0,"AddNew")
		.set_CellHasButton(h,0,True)
		.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
	End With
End With

// OLEStartDrag event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
With Exgrid1
	.BeginUpdate()
	.Columns.Add("Default")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
	End With
	.OLEDropMode = exontrol.EXGRIDLib.exOLEDropModeEnum.exOLEDropManual
	.EndUpdate()
End With

' AfterExpandItem event - Fired after an item is expanded (collapsed).
Private Sub Exgrid1_AfterExpandItem(ByVal sender As System.Object, ByVal Item As Integer) Handles Exgrid1.AfterExpandItem
	With Exgrid1
		Debug.Print( "AfterExpandItem" )
		Debug.Print( Item )
	End With
End Sub

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exgrid1_AnchorClick(ByVal sender As System.Object, ByVal AnchorID As String, ByVal Options As String) Handles Exgrid1.AnchorClick
	With Exgrid1
		Debug.Print( "AnchorClick" )
		Debug.Print( AnchorID )
		Debug.Print( Options )
	End With
End Sub

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub Exgrid1_BeforeExpandItem(ByVal sender As System.Object, ByVal Item As Integer, ByRef Cancel As Object) Handles Exgrid1.BeforeExpandItem
	With Exgrid1
		Debug.Print( "BeforeExpandItem" )
		Debug.Print( Item )
	End With
End Sub

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub Exgrid1_ButtonClick(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByVal Key As Object) Handles Exgrid1.ButtonClick
	With Exgrid1
		Debug.Print( "ButtonClick" )
		Debug.Print( Item )
		Debug.Print( ColIndex )
		Debug.Print( Key )
	End With
End Sub

' CellImageClick event - Fired after the user clicks on the image's cell area.
Private Sub Exgrid1_CellImageClick(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer) Handles Exgrid1.CellImageClick
	With Exgrid1
		Debug.Print( "CellImageClick" )
		Debug.Print( Item )
		Debug.Print( ColIndex )
	End With
End Sub

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Exgrid1_CellStateChanged(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer) Handles Exgrid1.CellStateChanged
	With Exgrid1
		Debug.Print( "CellStateChanged" )
		Debug.Print( Item )
		Debug.Print( ColIndex )
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		Debug.Print( "Change" )
		Debug.Print( Item )
		Debug.Print( ColIndex )
		Debug.Print( NewValue )
	End With
End Sub

' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub Exgrid1_Click(ByVal sender As System.Object) Handles Exgrid1.Click
	With Exgrid1
		Debug.Print( "Click" )
	End With
End Sub

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub Exgrid1_ColumnClick(ByVal sender As System.Object, ByVal Column As exontrol.EXGRIDLib.Column) Handles Exgrid1.ColumnClick
	With Exgrid1
		Debug.Print( "ColumnClick" )
	End With
End Sub

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exgrid1_DblClick(ByVal sender As System.Object, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exgrid1.DblClick
	With Exgrid1
		Debug.Print( "DblClick" )
		Debug.Print( Shift )
		Debug.Print( X )
		Debug.Print( Y )
		.Edit()
	End With
End Sub

' Edit event - Occurs just before editing the focused cell.
Private Sub Exgrid1_EditEvent(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef Cancel As Boolean) Handles Exgrid1.EditEvent
	With Exgrid1
		Debug.Print( "Edit" )
		Debug.Print( Item )
		Debug.Print( ColIndex )
	End With
End Sub

' EditClose event - Occurs when the edit operation ends.
Private Sub Exgrid1_EditCloseEvent(ByVal sender As System.Object) Handles Exgrid1.EditCloseEvent
	With Exgrid1
		Debug.Print( "EditClose" )
	End With
End Sub

' EditOpen event - Occurs when the edit operation starts.
Private Sub Exgrid1_EditOpen(ByVal sender As System.Object) Handles Exgrid1.EditOpen
	With Exgrid1
		Debug.Print( "EditOpen" )
	End With
End Sub

' FilterChange event - Occurs when filter was changed.
Private Sub Exgrid1_FilterChange(ByVal sender As System.Object) Handles Exgrid1.FilterChange
	With Exgrid1
		Debug.Print( "FilterChange" )
	End With
End Sub

' FilterChanging event - Notifies your application that the filter is about to change.
Private Sub Exgrid1_FilterChanging(ByVal sender As System.Object) Handles Exgrid1.FilterChanging
	With Exgrid1
		Debug.Print( "FilterChanging" )
	End With
End Sub

' FocusChanged event - Occurs when a new cell is focused.
Private Sub Exgrid1_FocusChanged(ByVal sender As System.Object) Handles Exgrid1.FocusChanged
	With Exgrid1
		Debug.Print( "FocusChanged" )
	End With
End Sub

' KeyDown event - Occurs when the user presses a key while an object has the focus.
Private Sub Exgrid1_KeyDown(ByVal sender As System.Object, ByRef KeyCode As Short, ByVal Shift As Short) Handles Exgrid1.KeyDown
	With Exgrid1
		Debug.Print( "KeyDown" )
		Debug.Print( KeyCode )
		Debug.Print( Shift )
	End With
End Sub

' KeyPress event - Occurs when the user presses and releases an ANSI key.
Private Sub Exgrid1_KeyPress(ByVal sender As System.Object, ByRef KeyAscii As Short) Handles Exgrid1.KeyPress
	With Exgrid1
		Debug.Print( "KeyPress" )
		Debug.Print( KeyAscii )
	End With
End Sub

' KeyUp event - Occurs when the user releases a key while an object has the focus.
Private Sub Exgrid1_KeyUp(ByVal sender As System.Object, ByRef KeyCode As Short, ByVal Shift As Short) Handles Exgrid1.KeyUp
	With Exgrid1
		Debug.Print( "KeyUp" )
		Debug.Print( KeyCode )
		Debug.Print( Shift )
	End With
End Sub

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub Exgrid1_LayoutChanged(ByVal sender As System.Object) Handles Exgrid1.LayoutChanged
	With Exgrid1
		Debug.Print( "LayoutChanged" )
	End With
End Sub

' MouseDown event - Occurs when the user presses a mouse button.
Private Sub Exgrid1_MouseDownEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exgrid1.MouseDownEvent
	With Exgrid1
		Debug.Print( "MouseDown" )
		Debug.Print( Button )
		Debug.Print( Shift )
		Debug.Print( X )
		Debug.Print( Y )
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exgrid1.MouseMoveEvent
End Sub

' MouseUp event - Occurs when the user releases a mouse button.
Private Sub Exgrid1_MouseUpEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exgrid1.MouseUpEvent
	With Exgrid1
		Debug.Print( "MouseUp" )
		Debug.Print( Button )
		Debug.Print( Shift )
		Debug.Print( X )
		Debug.Print( Y )
	End With
End Sub

' OffsetChanged event - Occurs when the scroll position has been changed.
Private Sub Exgrid1_OffsetChanged(ByVal sender As System.Object, ByVal Horizontal As Boolean, ByVal NewVal As Integer) Handles Exgrid1.OffsetChanged
	With Exgrid1
		Debug.Print( "OffsetChanged" )
		Debug.Print( Horizontal )
		Debug.Print( NewVal )
	End With
End Sub

' OversizeChanged event - Occurs when the right range of the scroll has been changed.
Private Sub Exgrid1_OversizeChanged(ByVal sender As System.Object, ByVal Horizontal As Boolean, ByVal NewVal As Integer) Handles Exgrid1.OversizeChanged
	With Exgrid1
		Debug.Print( "OversizeChanged" )
		Debug.Print( Horizontal )
		Debug.Print( NewVal )
	End With
End Sub

' RClick event - Fired when right mouse button is clicked
Private Sub Exgrid1_RClick(ByVal sender As System.Object) Handles Exgrid1.RClick
	With Exgrid1
		Debug.Print( "RClick" )
	End With
End Sub

' ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
Private Sub Exgrid1_ScrollButtonClick(ByVal sender As System.Object, ByVal ScrollBar As exontrol.EXGRIDLib.ScrollBarEnum, ByVal ScrollPart As exontrol.EXGRIDLib.ScrollPartEnum) Handles Exgrid1.ScrollButtonClick
	With Exgrid1
		Debug.Print( "ScrollButtonClick" )
		Debug.Print( ScrollBar )
		Debug.Print( ScrollPart )
	End With
End Sub

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Exgrid1_SelectionChanged(ByVal sender As System.Object) Handles Exgrid1.SelectionChanged
	With Exgrid1
		Debug.Print( "SelectionChanged" )
	End With
End Sub

' Sort event - Fired when the control sorts a column.
Private Sub Exgrid1_Sort(ByVal sender As System.Object) Handles Exgrid1.Sort
	With Exgrid1
		Debug.Print( "Sort" )
	End With
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	.Images("gBJJgBAIEAAGAEGCAAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BAmBhOCwMGwuDw2ExWJxmIx2HyGLv+TlykUCgABmGYzzObzuczWcKujzOa0ug02h" & _
	"z+r1Wtz2qoCA2QAYG1yk02YA3NMy2Yh8Sh202zx4gA4jxADM5XG4vHACy6ESdjM6XUZiZTMS5bwZSm1c83+yQHCYHk81Q8O7qW18u/9NG3vAf/y83u4PQWQA0ZVADq/z" & _
	"6um6rkuw7TqH+5bYJu+z5vE8z2N02cGweoDfwfCrbQfBqkNzBb6QfDLxp6+LlOs5cSOTEzlm7FYACFFwADvGIAGvGjzOu7MbwHHECQSmUOvS8cGwk20gQc2ycQs4MLvL" & _
	"D8MNtDSfyS+cmyZJzywa96axzDsTw6/x1AAL8xRbF8Vm65jkH/AL8QFNTqR6lsfuDIb2uDKTzTo88FTtIk+PK3SNRDKiew5JVDSnK08NnOUGRClkt0PFEDUjMwAENS4A" & _
	"M2zj4udNznujT1PTgjdGQg8c71RPtESvCL1JrO8lozQUj1nP6d1TKtc0U8dS1jCaNRzGhrxnGthWJYdjUrYwc2ZMMx2NB8czZNk4VLPMstzXD6Q6mltVjPNAT0m1CvnD" & _
	"tBxBXlI3PRKNzZDtjQ6cd5TQ/TSU0/r/udC0A1Ez1SUja8/QhWVavrSLfpxWNzXZR2CygmVtXXVl03Lg+BV+lV3UjeDgzEL4AXkcb6Pje5LZNDzhuLfrOX/RtT0TQbc5" & _
	"lENSvBi2K5xlFdUHhN1ZhJ9F59WybOU7NjWTFkvxhGT9zIIQAWYHIABFqmnABSsT0HUaNYlI1dZmjNuUDRybzvIVWyDoOc54n8Oyxm9Ta9cSUaLbbg44+b4xiO9nY/pt" & _
	"73u38Tuc52tpdruYxDVyUbBV+gYpu2c7PyGMKTt21cjnW6OvzO8PppUvP/Ljlt/wt/Vvn+v8V1eCdbgaa7fnMi8vyD0TnzGEJXyp/wJ3js98iXe+F3/hwGM3jeQZjTeU" & _
	"znmOT5bTKJyqYcbm2c5bzXpqvsWw4FUkCO473wgB8cD9/znzO14n1+D4/efcTP4fl5+WKvxbbptmqV+B/ni/68R4514AvxeTAR50B3oPNei/iBhFgfErgeR4kBIiSAAJ" & _
	"KSiC7PT5wMKIQ4fwfyHDzg2PwD4/B/jgg2PgA48AfjgB+RkeAARwAPGAA8jI4AADgAOMAAZGTyw6YbDkA7ZDaAHgxDyCxGgBw8EBBmJcS4LjAATDweBGoqjgAGP4jQ/A" & _
	"cjwAHBsiQex8gPH+MF7pDxxkB")
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesHDash
	.AutoEdit = False
	.ExpandOnDblClick = False
	With .Columns
		With .Add("Column")
			.DisplayFilterButton = True
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		End With
		With .Add("Button")
			.AllowSizing = False
			.Width = 18
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasButton,True)
		End With
	End With
	With .Items
		h = .AddItem("parent")
		.set_CellImage(h,0,1)
		.InsertItem(h,"","child")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub Exgrid1_ColumnClick(ByVal sender As System.Object, ByVal Column As exontrol.EXGRIDLib.Column) Handles Exgrid1.ColumnClick
	' Column.Selected = True
	With Exgrid1
		.BeginUpdate()
		.Columns.Item(0).Selected = False
		.Columns.Item(1).Selected = False
		.Items.SelectAll()
		.EndUpdate()
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.MarkSearchColumn = False
	.ShowFocusRect = False
	.SingleSel = False
	.FullRowSelect = exontrol.EXGRIDLib.CellSelectEnum.exRectSel
	.SortOnClick = exontrol.EXGRIDLib.SortOnClickEnum.exNoSort
	With .Columns
		.Add("Column1")
		.Add("Column2")
	End With
	With .Items
		.set_CellValue(.AddItem("One"),1,"Three")
		.set_CellValue(.AddItem("Two"),1,"Four")
		.SelectAll()
	End With
	.EndUpdate()
End With

With Exgrid1
	With .Columns.Add("Currency")
		.FormatColumn = "dbl(value) ? currency(dbl(value)) : ``"
		With .Editor
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
			.Numeric = exontrol.EXGRIDLib.NumericEnum.exFloat
		End With
	End With
	With .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	End With
End With

With Exgrid1
	.Columns.Add("Number")
	.Columns.Add("Currency").ComputedField = "%0 ? currency(%0) : ``"
	With .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	End With
End With

With Exgrid1
	.BeginUpdate()
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.Columns.Add("Names")
	With .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	End With
	.Columns.Item(0).SortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
	Debug.Print( .GetItems(1) )
End With

' EditClose event - Occurs when the edit operation ends.
Private Sub Exgrid1_EditCloseEvent(ByVal sender As System.Object) Handles Exgrid1.EditCloseEvent
	With Exgrid1
		.Items.AddItem("")
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.AutoEdit = True
	.Columns.Add("Default").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
	.FullRowSelect = exontrol.EXGRIDLib.CellSelectEnum.exColumnSel
	.Items.AddItem("")
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.ScrollBars = exontrol.EXGRIDLib.ScrollBarsEnum.exDisableBoth
	.EndUpdate()
End With

With Exgrid1
	.BeginUpdate()
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.HeaderHeight = 48
	.Columns.Add("DefaultSize").HTMLCaption = "Default-Size <img>pic1</img> Picture"
	.Columns.Add("CustomSize").HTMLCaption = "Custom-Size <img>pic1:16</img> Picture"
	.EndUpdate()
End With

With Exgrid1
	.BeginUpdate()
	With .ConditionalFormats.Add("1")
		.Bold = True
		.ForeColor = Color.FromArgb(255,0,0)
		.ApplyTo = &H1
	End With
	.Columns.Add("C1")
	With .Columns.Add("C2")
		.HeaderBold = True
		.HTMLCaption = "<fgcolor=FF0000>C2"
	End With
	With .Items
		.set_CellValue(.AddItem(10),1,11)
		.set_CellValue(.AddItem(12),1,13)
	End With
	.EndUpdate()
End With

With Exgrid1
	With .Columns.Add("Check")
		With .Editor
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckValueType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exCheckValue2,1)
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.CustomFilter = "checked||-1|||unchecked||0"
	End With
	With .Items
		.AddItem(True)
		.AddItem(True)
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
	End With
End With